00100	BEGIN
00200	REAL TEMP;
00225	IFC FALSE THENC
00250	PROCEDURE FIX;
00275	   TEMP←SQRT(TEMP);
00287	ENDC;
00300	OUTSTR(CVF(ATAN(1))&'12&'15);
00400	END;